home *** CD-ROM | disk | FTP | other *** search
/ TPUG - Toronto PET Users Group / TPUG Users Group CD / TPUG Users Group CD.iso / C64 / G-Games / (c)gb.d64 / et puzzle.c (.txt) < prev    next >
Commodore BASIC  |  2007-02-04  |  6KB  |  165 lines
  1. 1 POKE53280,12:POKE53281,9
  2. 2 DIMA$(11)
  3. 3 C=11
  4. 4 VC=9
  5. 5 PRINT"[147]"
  6. 6 REM READA$:PRINTA$,A
  7. 7 REM GETD$:IFD$<>" "THEN7
  8. 8 REM A=A+1:GOTO6
  9. 10 V=53248
  10. 20 POKEV+21,255:POKEV+23,255:POKEV+29,255
  11. 30 FORE=200TO207:POKE2040+E-200,E:FORD=64*ETO64*E+62:READS
  12. 31 POKED,S:NEXT:POKEV+39+E-200,C:NEXT
  13. 40 PRINT"[129]     [185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185][185]"
  14. 41 FORD=1TO16:PRINT"                       ":NEXT
  15. 42 PRINT"[150]  "
  16. 99 POKEV+8,112:POKEV+9,106
  17. 100 FORD=105TO64STEP-1
  18. 110 POKEV,D:POKEV+1,D
  19. 115 POKEV+2,112:POKEV+3,D
  20. 120 POKEV+4,160+64-D:POKEV+5,D
  21. 130 POKEV+6,D:POKEV+7,106
  22. 140 POKEV+10,160+64-D:POKEV+11,106
  23. 150 POKEV+12,D:POKEV+13,106+106-D
  24. 160 POKEV+14,112:POKEV+15,106+106-D
  25. 190 NEXT
  26. 215 PRINTCHR$(14)"";
  27. 216 FORD=1TO18
  28. 217 READA$
  29. 220 PRINT"";
  30. 221 FORL=1TOLEN(A$):PRINTMID$(A$,L,1);:FORH=1TO100:NEXT:NEXT:PRINT
  31. 240 NEXT
  32. 245 POKE198,0
  33. 250 GETA$:IFA$<>CHR$(13)THEN250
  34. 255 PRINT"";
  35. 260 FORD=1TO23:PRINTSPC(24)"                ";:FORB=1TO30:NEXT:NEXT
  36. 265 PRINT"";
  37. 270 FORD=1TO8
  38. 277 READA$
  39. 280 PRINT"";
  40. 290 FORL=1TOLEN(A$):PRINTMID$(A$,L,1);:FORH=1TO100:NEXT:NEXT:PRINT
  41. 300 NEXT
  42. 305 FORL=1TO2E3:NEXT:FORD=PEEK(V+14)TOPEEK(V+14)+48STEP.25:POKEV+14,D:NEXT
  43. 309 PRINT"[150][208][210][197][211][211] [210][197][212][213][210][206]":POKE198,0
  44. 310 GETA$:IFA$<>CHR$(13)THEN310
  45. 320 PRINT"";
  46. 330 FORD=1TO23:PRINTSPC(24)"                ";:FORB=1TO30:NEXT:NEXT
  47. 350 FORD=1TO11:READA$(D):NEXT:A=INT(RND(1)*11)+1
  48. 360 FORD=0TO7:A(D)=(VAL(MID$(A$(A),D+1,1))-1):NEXT
  49. 370 FORD=1TO9:READB(D):NEXT
  50. 380 POKEV+21,0
  51. 390 PRINT"[144]  [207].[203] HERE COMES THE SCRAMBLED PICTURE"
  52. 400 POKEV+A(0)*2,64:POKEV+A(0)*2+1,64
  53. 401 POKEV+A(1)*2,112:POKEV+A(1)*2+1,64
  54. 402 POKEV+A(2)*2,160:POKEV+A(2)*2+1,64
  55. 403 POKEV+A(3)*2,64:POKEV+A(3)*2+1,106
  56. 404 POKEV+A(4)*2,112:POKEV+A(4)*2+1,106
  57. 405 POKEV+A(5)*2,160:POKEV+A(5)*2+1,106
  58. 406 POKEV+A(6)*2,64:POKEV+A(6)*2+1,148
  59. 407 POKEV+A(7)*2,112:POKEV+A(7)*2+1,148
  60. 410 C=0:FORD=0TO7:C=C+2^A(D):POKEV+21,C:FORH=1TO200:NEXT:NEXT
  61. 411 PRINT"
  62. 412 [153]""[166]30)"1  2  3CMDCMDCMDCMDCMDCMDCMD4  5  6CMDCMDCMDCMDCMDCMDCMD7  8  9"
  63. 420 [153]"(null)OVE"
  64. 430 [161]M$:M[178][197](M$):[139]M$[178]""[167]430
  65. 435 [139]M[179]1[167]430
  66. 440 M1[178][197]([200]([196](B(VC)),2))
  67. 441 M2[178][197]([202]([196](B(VC)),3,1))
  68. 442 M3[178][197]([202]([196](B(VC)),4,1))
  69. 443 M4[178][197]([201]([196](B(VC)),1))
  70. 445 [139] M[179][177]M1 [175] M[179][177]M2 [175] M[179][177]M3 [175] M[179][177]M4 [167] 430
  71. 450 [153]"    WAIT":[139]M[179]4[167]Y[178]64
  72. 451 [139]M[177]3[175]M[179]7[167]Y[178]106
  73. 452 [139]M[177]6[167]Y[178]148
  74. 453 [139]M[178]1[176]M[178]4[176]M[178]7[167]X[178]64
  75. 454 [139]M[178]2[176]M[178]5[176]M[178]8[167]X[178]112
  76. 455 [139]M[173]3[178][181](M[173]3)[167]X[178]160
  77. 456 [139]M[178]VC[170]3[167][141]800
  78. 457 [139]M[170]3[178]VC[167][141]850
  79. 458 [139]M[178]VC[170]1[167][141]900
  80. 459 [139]M[170]1[178]VC[167][141]950
  81. 470 A(VC[171]1)[178]A(M[171]1):A(M[171]1)[178]99
  82. 475 C[178]0
  83. 480 [129]D[178]1[164]8:[139]A(D)[178]D[167]C[178]C[170]1
  84. 490 [130]
  85. 500 [139]C[178]7[167]2000
  86. 510 VC[178]M
  87. 515 M5[178]M5[170]1:[153]"STOPMOVESWAIT";M5
  88. 520 [137]420
  89. 800 [143] ** UP **
  90. 805 [129]L[178]Y[164]Y[171]42[169][171]1:[151]V[170]A(M[171]1)[172]2[170]1,L:[130]
  91. 820 [142]
  92. 850 [143] * DOWN *
  93. 855 [129]L[178]Y[164]Y[170]42:[151]V[170]A(M[171]1)[172]2[170]1,L:[130]
  94. 870 [142]
  95. 900 [143] * LEFT *
  96. 905 [129]L[178]X[164]X[171]48[169][171]1:[151]V[170]A(M[171]1)[172]2,L:[130]
  97. 920 [142]
  98. 950 [143] * RIGHT *
  99. 955 [129]L[178]X[164]X[170]48:[151]V[170]A(M[171]1)[172]2,L:[130]
  100. 970 [142]
  101. 999 [143] **** SPRITE 1 ****
  102. 1000 [131]0,0,0,0,0,31,0,1,224,0,6,0,0,24,15,0,96,127,0,65,255,0,135,255,1,31,255
  103. 1001 [131]2,63,252,4,63,252,4,127,252,4,255,128,8,254,15,8,254,127,16,254,187,19
  104. 1002 [131]252,159,35,248,143,39,248,112,47,240,15,35,224,0
  105. 1003 [143] **** SPRITE 2 ****
  106. 1004 [131]0,0,0,224,0,0,30,0,127,1,255,128,92,0,16,252,198,17,255,241,10,255,248
  107. 1005 [131]146,255,252,212,63,254,32,31,255,143,31,255,255,231,255,255,211,255,255
  108. 1006 [131]208,16,68,216,122,68,144,154,137,17,113,2,226,134,18,21,27,41,42,36,196
  109. 1007 [143] **** SPRITE 3 ****
  110. 1008 [131]0,0,0,0,0,0,128,0,0,103,0,0,24,240,0,0,28,0,0,3,0,31,128,192,255,248,32
  111. 1009 [131]255,252,32,255,252,16,255,254,16,192,126,8,128,63,8,63,31,4,220,158,4
  112. 1010 [131]46,94,4,102,126,8,62,78,8,156,192,8,127,0,136
  113. 1011 [143] **** SPRITE 4 ****
  114. 1012 [131]32,230,0,35,1,192,34,0,63,33,128,0,16,120,28,16,7,255,10,0,1,9,147,14,4
  115. 1013 [131]100,8,2,24,16,1,32,16,0,192,32,0,54,192,0,9,0,0,4,3,0,2,132,0,1,104,0,0
  116. 1014 [131]145,0,0,65,0,0,126,0,0,72
  117. 1015 [143] **** SPRITE 5 ****
  118. 1016 [131]4,68,2,132,137,154,73,40,180,137,36,9,145,65,0,18,65,32,34,130,32,36,132
  119. 1017 [131]24,73,0,4,74,0,0,74,3,142,144,7,255,145,30,254,144,248,62,16,16,62,75,11
  120. 1018 [131]158,160,134,124,32,64,24,16,56,0,8,7,0,2,0,14
  121. 1019 [143] **** SPRITE 6 ****
  122. 1020 [131]0,0,136,0,65,136,14,50,48,1,140,80,192,64,96,48,48,160,8,9,64,4,6,64,2,0
  123. 1021 [131]128,67,33,0,34,198,0,18,24,0,20,96,0,36,128,0,43,0,0,68,0,0,4,0,0,24,0,0
  124. 1022 [131]32,0,0,64,0,0,128,0,0
  125. 1023 [143] **** SPRITE 7 ****
  126. 1024 [131]0,0,38,0,0,33,0,0,32,0,0,144,0,3,156,0,31,18,3,190,9,31,166,8,30,3,4,24,3
  127. 1025 [131]4,24,3,7,27,131,4,31,129,132,14,1,162,12,97,130,12,232,3,15,192,2,15,0,1
  128. 1026 [131]4,0,1,0,0,1,0,0,1
  129. 1027 [143] **** SPRITE 8 ****
  130. 1028 [131]1,128,17,0,120,225,248,7,2,6,0,12,1,255,240,0,64,0,128,32,0,65,32,0,62
  131. 1029 [131]32,0,0,64,0,0,64,0,192,64,0,35,64,0,28,64,0,0,32,0,128,32,0,112,32,0,8
  132. 1030 [131]160,0,7,32,0,0,16,0,0,16,0
  133. 1040 [131]"SYS(null)OUR OBJECTIVE",IS TO RECREATE,THIS PICTURE ,"OF VAL.(null)."
  134. 1050 [131],"STOPLEFT$E IS MADE UP",OF A GRID OF,3X3 SPRITE,YOU CAN MOVE
  135. 1060 [131]EACH CELL INTO,THE VACANT ONE,,"(null)OU DO THIS BY","TYPING THE (null)O."
  136. 1070 [131]OF THE CELL YOU,WANT TO MOVE
  137. 1080 [131],"DEF(null)(null)(null) (null)(null)VAL(null)(null) (null)VAL(null)(null)(null)(null)"
  138. 1090 [131]"(null)HE GRID IS SET","UP LIKE THIS :TAN"
  139. 1100 [131]"  1  2  3","  4  5  6","  7  8  9"
  140. 1110 [131],"STOP(null)O TYPING 8","WILL DO THIS"
  141. 1120 [131]82167534,17654238,85476213,32856471,38764152,41257360,64132875,61873425
  142. 1130 [131]57638241,84657312,28654137
  143. 1140 [131]0024,0135,0260,0157,2468,0359,0480,0579,0680
  144. 2000 [151]54296,15
  145. 2010 A1[178]54291:R1[178]54292:A2[178]54277:R2[178]54278
  146. 2020 H1[178]54287:L1[178]54286:W1[178]54290:H2[178]54273:L2[178]54272:W2[178]54276
  147. 2040 [151]A1,102:[151]R1,0:[151]A2,96:[151]R2,0
  148. 2100 [135]H,L,D
  149. 2103 [139]H[178]0[167][151]R1,14:[151]54296,0:[151]H1,0:[151]L1,0:[151]H2,0:[151]L2,0:[128]
  150. 2104 [151]W1,0:[151]W2,0
  151. 2105 [151]W1,17:[151]W2,33
  152. 2106 [151]H1,0:[151]H1,H:[151]H2,0:[151]H2,H
  153. 2110 [151]L1,0:[151]L1,L:[151]L2,0:[151]L2,L:[129]E[178]0[164]7[172]D:[151]R2,136:[151]R1,136:[130]
  154. 2120 [137]2100
  155. 2200 [131]34,75,6,51,97,6,45,198,1,43,52,1,38,126,1,43,52,1,34,75,6,25,177,10
  156. 2210 [131]28,214,6,57,172,6,51,97,1,48,127,1,43,52,1,48,127,1,38,126,6,64,188,10
  157. 2220 [131]38,126,6,68,149,6,64,188,1,57,172,1,51,97,1,45,198,1,40,200,6,34,75,10
  158. 2221 [131]40,200,6,34,75,6,68,149,4,76,252,2,64,188,12
  159. 2225 [131]68,150,6,102,196,6,90,99,1,86,52,1,76,126,1,86,52,1,68,75,6,50,177,10
  160. 2226 [131]56,214,6,114,172,6,102,97,1,96,127,1,86,52,1,96,127,1,76,126,6,128,188,10
  161. 2227 [131]76,126,6,136,149,6,128,188,1,114,172,1,102,97,1,90,198,1,80,200,6,68,75,10
  162. 2230 [131]80,200,6,68,75,6,136,149,4,152,252,2,128,188,12,136,149,6,204,194,6
  163. 2240 [131]192,254,6,152,252,6,136,149,12
  164. 2300 [131]0,0,0
  165.